program o p e r a c o e s ;
var
a , b : integer ;
r e s p o s t a : integer ;
e s c o l h a : integer ;
begin
writeln ( ’Digite dois inteiros :’ ) ;
read ( a , b ) ;
writeln ( ’Escolha a operacao a ser realizada : ’ ) ;
writeln ( ’(1) Soma , (2) Subtracao , (3) Multiplicacao , (4) divisao )’ ) ;
read ( e s c o l h a ) ;
i f e s c o l h a = 1 then
writeln ( a , ’ + ’ , b , ’ = ’ , ( a+b ) )
else
i f e s c o l h a = 2 then
writeln ( a , ’ + ’ , b , ’ = ’ , ( a−b ) )
else
i f e s c o l h a = 3 then
begin
r e s p o s t a := a ∗ b ;
writeln ( a , ’ + ’ , b , ’ = ’ , r e s p o s t a ) ;
end
else
i f e s c o l h a = 4 then
writeln ( a , ’ + ’ , b , ’ = ’ , ( a /b ) )
else
i f ( e s c o l h a > 5 ) and ( e s c o l h a <= 2 5 5 ) then
writeln ( ’Escolha errada !’ )
else
writeln ( ’Entrada incorreta .’ ) ;
end .

